home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / Egalist88.AMOS / Egalist88.amosSourceCode
Encoding:
AMOS Source Code  |  1997-01-01  |  1.0 KB  |  39 lines
  1. Screen Open 0,320,256,8,0
  2. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  3. 'Palette 0,$F00,$F0,$FF0,$F,$F0F,$FF,$FFF
  4. Palette $20,$141,$141,$262,$141,$262,$262,$393
  5. Double Buffer 
  6. Autoback 0
  7.  Extension_8_128A 0
  8. Dim ARG(3,3)
  9. ARG(0,2)=15
  10. ARG(0,3)=-2
  11. ARG(1,2)=-17
  12. ARG(1,3)=1
  13. ARG(2,2)=7
  14. ARG(2,3)=-3
  15. Do 
  16.   For P=0 To 2
  17.     Add ARG(P,0),ARG(P,2)
  18.     Add ARG(P,1),ARG(P,3)
  19.     PL= Extension_8_04F8(P)
  20.      Extension_8_121C 0,P
  21.     MX= Extension_8_1114(ARG(P,0),50+ Extension_8_1106(ARG(P,1),60))+160
  22.     MY= Extension_8_1106(ARG(P,0),50+ Extension_8_1114(ARG(P,1)*3,60))+128
  23. '    For Y=0 To 3
  24. '      Turbo Draw 319,Y*64+(P and 1)*32 To 319,Y*64+32+(P and 1)*32,PL,-PL 
  25. '      Turbo Draw 319,Y*64 To 319,Y*64+32,PL,-PL 
  26. '    Next  
  27.     For Y=0 To 7
  28.        Extension_8_1030 0,Y*32 To MX,MY,PL,PL
  29.        Extension_8_1030 319,Y*32 To MX,MY,PL,PL
  30.     Next 
  31.     For X=0 To 9
  32.        Extension_8_1030 X*32,0 To MX,MY,PL,PL
  33.        Extension_8_1030 X*32,255 To MX,MY,PL,PL
  34.     Next 
  35. '    Blitter Fill 0,P
  36.   Next 
  37.    Extension_8_1258 
  38.   Screen Swap : Wait Vbl 
  39. Loop